home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / jbl.arc / WIRE.BAS < prev   
Encoding:
BASIC Source File  |  1980-01-01  |  481 b   |  12 lines
  1. 1 CLS:COLOR 15
  2. 2 PRINT"DREW'S HANDY-DANDY WIRE RESISTANCE CALCULATOR" : PRINT : PRINT
  3. 3 PRINT "REMEMBER TO DOUBLE YOUR INPUT LENGTH FOR WIRE PAIRS SUCH AS SPEAKER CABLE" : PRINT : PRINT
  4. 4 INPUT "A.W.G. WIRE GAUGE ";A
  5. 5 INPUT "WIRE LENGTH IN FEET ";F
  6. 6 RCU = 10.575 : RAL = 17.34
  7. 7 CON = 105532!*.794^A
  8. 8 CU = RCU*F/CON : AL = RAL*F/CON
  9. 9 PRINT " COPPER WIRE          ALUMINUM WIRE"
  10. 10 PRINT USING "###,###.## OHMS        ###,###.## OHMS ";CU,AL
  11. 11 PRINT : GOTO 4 : END
  12.